HPAVC/HPAVC CD-ROM.iso/TUT18.ZIP/TEMP.PAS

Pascal/Delphi Source File | 1995-02-21 | 215b | 19 lines

USES fpack,crt;

BEGIN
  total:=1;
  infodat[1]:='grim.pcx';
  asm
    mov   ax,0013h
    int   10h
  end;

  loadpcx (1,$a000,true);
  readkey;

  asm
    mov   ax,0003h
    int   10h
  end;
END.